(add-log-current-defun): Fix typos in last change.

diff --git a/lisp/add-log.el b/lisp/add-log.el
index 9c1be0e453646215398fdba5339b5f83e984d5d6..a90237f96cef69e76d37ecfaee6b3b2c91bc3fdd 100644 (file)
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -243,8 +243,8 @@ Runs `change-log-mode-hook'."
 (defun add-log-current-defun ()
   "Return name of function definition point is in, or nil.
 
-Understands Lisp, LaTeX (\"functions\" are chapters, sections, ...),
-Texinfo (@node titles), and C.
+Understands C, Lisp, LaTeX (\"functions\" are chapters, sections, ...),
+Texinfo (@node titles), and Fortran.
 
 Other modes are handled by a heuristic that looks in the 10K before
 point for uppercase headings starting in the first column or
@@ -381,7 +381,7 @@ Has a preference of looking backwards."
                    (if (re-search-forward
                         "^[ \t]*\\(program\\|subroutine\\|function\
 \\|[ \ta-z0-9*]*[ \t]+function\\)"
-                        string nil t)
+                        nil t)
                        (progn
                          ;; move to EOL or before first left paren
                          (if (re-search-forward "[(\n]" nil t)